home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 13 / CU Amiga Magazine's Super CD-ROM 13 (1997)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1997-08].iso / SetPrefs < prev    next >
Text File  |  1997-06-08  |  2KB  |  42 lines
  1. /* */
  2.  
  3. options results
  4. PrefsFile = 'RAM:IDer.prefs'
  5. types = 'AGD IFF GIF JPG ANM MPG MOD S3M XMM MED SVX WAV LHA DEF'
  6.  
  7. address CDPREFS
  8.  
  9. do i = 1 to words(types)
  10.     type = word(types,i)
  11.     interpret 'popasl ID' type'0'
  12.     interpret type '= result'
  13.     interpret 'string ID' type'1'
  14.     interpret type '= strip('type' result)'
  15.     end
  16.  
  17. if ~open(prefs,PrefsFile,'W') then request ID FAIL title '"CU Amiga CD preferences"' gadgets 'OK' '"Failed to save preferences"'
  18. else do
  19.     call writeln(prefs,'# IDer Prefs file - created by CUCD prefs'||'0a'x)
  20.     call writeln(prefs,'0a'x||'# IDer  --  © 1995 Eclipse Software'||'0a'x)
  21.  
  22.     call writeln(prefs,'CLASS=IFF_Picture OFFSET=0,"FORM????ILBM"  ACTION='IFF)
  23.     call writeln(prefs,'CLASS=GIF_Picture SUFFIX=.GIF  OFFSET=0,"GIF87a"  ACTION='GIF)
  24.     call writeln(prefs,'CLASS="JPEG_Picture"    OFFSET=6,4A464946   ACTION='JPG)
  25.     call writeln(prefs,'CLASS=ANIM              SUFFIX=.ANIM  OFFSET=0,"FORM????ANIM"  ACTION='ANM)
  26.     call writeln(prefs,'CLASS=MPEG              SUFFIX=.MPG  ACTION='MPG)
  27.     call writeln(prefs,'CLASS=Module SUFFIX=.MOD  NAME=MOD.#?  OFFSET=1080,"M.K."  FLAGS=T  ACTION='MOD)
  28.     call writeln(prefs,'CLASS="S3M_Module" SUFFIX=.S3M  NAME=S3M.#?  OFFSET=44,"SCRM"  FLAGS=T  ACTION='S3M)
  29.     call writeln(prefs,'CLASS="XM_Module"       SUFFIX=.XM FLAGS=T   ACTION='XMM)
  30.     call writeln(prefs,'CLASS="MED_Module"      SUFFIX=.MED  NAME=MED.#?  OFFSET=0,"MMD?"  ACTION='MED)
  31.     call writeln(prefs,'CLASS="IFF_Sample" OFFSET=0,"FORM????8SVX"  ACTION='SVX)
  32.     call writeln(prefs,'CLASS="WAV_Sample"      OFFSET=0,"RIFF????WAVE"  ACTION='WAV)
  33.     call writeln(prefs,'CLASS=Guide SUFFIX=.GUIDE  OFFSET=0,"@database"  FLAGS=I  ACTION='AGD)
  34.     call writeln(prefs,'CLASS="LhA_Archive"     NAME=(#?.LhA|?#.Lzh)  OFFSET=2,"-lh?-"  ACTION='LHA)
  35.     call writeln(prefs,'CLASS=Default ACTION='DEF)
  36.     call writeln(prefs,'0a'x||'#END')
  37.     call close(prefs)
  38.     end
  39.  
  40. quit
  41.  
  42.